home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / kyzeramo.lha / Lyra2.AMOS / Lyra2.amosSourceCode
AMOS Source Code  |  1992-09-03  |  2KB  |  75 lines
  1. _DO_LYRA["this lyra two effect is for kenny who said that you cant do a spectrum demo       yeah right"]
  2. '
  3. Procedure _DO_LYRA[SCROL$]
  4. ' Lyra2-esque turtle graphics by Kyzer 
  5. ' letter design by Janne Kalliola  
  6. '
  7.    Hide 
  8.    BI=1
  9.    BR=-44
  10.    BD=1
  11.    Dim LETTER$(26)
  12.    For A=0 To 25
  13.       Read A$
  14.       LETTER$(A)="PUF50L90F5R90PD"+A$
  15.    Next 
  16.    Set Rainbow 0,0,270,"","",""
  17.    Rainbow 0,0,40,270
  18.    For A=0 To 129 : Rain(0,A)=(A/130.0)*8+1 : Next 
  19.    For A=0 To 139 : N=(8*(A/150.0)) : Rain(0,A+130)=$FFF-N*$210 : Next 
  20.    Screen Open 0,320,70,2,0
  21.    Palette 0,$FF0 : Curs Off : Cls 0
  22.    Double Buffer : Autoback 0
  23.    Screen Display 0,128,100,320,70
  24.    SCROL$=Upper$("                        "+SCROL$+"          ")
  25.    For A=1 To Len(SCROL$)
  26.       ROT=260
  27.       For B=0 To 15 Step 4
  28.          Exit If Mouse Key,2
  29.          Wait Vbl 
  30.           Extension_12_03A6 1
  31.          Add ROT,-4 : OLROT=ROT
  32.          For LETTA=1 To 14
  33.              Extension_18_0610 160,70
  34.             Add ROT,16
  35.              Extension_18_0532 ROT
  36.             LTA=Peek(Varptr(SCROL$)+A+LETTA)-65
  37.             If LTA>=0 and LTA<26 Then Extension_18_050E LETTER$(LTA)
  38.          Next LETTA
  39.          ROT=OLROT
  40.          Add BI,BD
  41.          Add BR,BI
  42.          If BR=0 : BD=-BD : Add BI,-BD : End If : Extension_18_0610 160,78 : Extension_18_0532 BR : Extension_18_050E "R90B13F26L90F35L70F11R70F5L90F5L90F5R70F11L70F35"
  43.          Screen Swap 
  44.       Next B
  45.    Next A
  46.    Screen Close 0
  47.    Edit 
  48.    A: Data "F20R90F10R90F10R90F10B10L90F10"
  49.    B: Data "F20R90F5R45F7R90F7R45F5B5L135F7R90F7R45F5"
  50.    C: Data "R90F10B10L90F20R90F10"
  51.    D: Data "F20R90F5R45F7R45F10R45F7R45F5"
  52.    E: Data "R90F10B10L90F10R90F5B5L90F10R90F10"
  53.    F: Data "F10R90F5B5L90F10R90F10"
  54.    G: Data "R90F10L90F10B10L90F10R90F20R90F10"
  55.    H: Data "F20B10R90F10L90F10B20"
  56.    I: Data "R90F10B5L90F20L90F5B10"
  57.    J: Data "F10B10R90F10L90F20"
  58.    K: Data "F20B10R45F14B14R90F14"
  59.    L: Data "F20B20R90F10"
  60.    M: Data "F20R166F21L152F21R166F20"
  61.    N: Data "F20R153F22L153F20"
  62.    O: Data "F20R90F10R90F20R90F10"
  63.    P: Data "F20R90F10R90F10R90F10"
  64.    Q: Data "F20R90F10R90F20R90F10B10R45F5"
  65.    R: Data "F20R90F10R90F10R90F10L135F14"
  66.    S: Data "R90F10L90F10L90F10R90F10R90F10"
  67.    T: Data "PUR90F5L90PDF20L90F5B10"
  68.    U: Data "F20B20R90F10L90F20"
  69.    V: Data "PUR90F5L90PDL14F21B21R28F21"
  70.    W: Data "F20B20R14F21R152F21L163F20"
  71.    X: Data "R27F22B11L54F11B22"
  72.    Y: Data "PUR90F5L90PDF10L27F11B11R54F11"
  73.    Z: Data "R90F10B10L63F22L115F10"
  74. End Proc
  75. '